Artificial Intellisync© Project— JttLE anil MLtT Computation Center 
Memo 39--The N©w Compiler ^ 


by It Hart -r 1.- .levin 


This memo introduces the brand new LISP 1*5 Compiler designed 
and programmed by Tim Hart and Mike Levin* Xt is written entirely 
In LISP and is the first compiler that has ever compiled itself by 


being executed interpret!vely. 

The purpose of the LISP Compiler is to replace S-expression 
definitions of functions with efficient machine language subroutines. 

A subroutine can be expected to rur. about 40 times as fa*:t as the 
interpreter can execute the same function from its S-expresslon 
definition. Subroutines typically take 70-80 per cent of the storage 
requirle|!l by their corresponding S-express ions. 

Thd compiler as it exists on the standard compiler tape is a 
machine language program that was obtained by having the S-expression 
definition of the compiler work on itsel^ 'hrough th© Interpreter. 

The compiler is designed so that compiled functions and interpretal 
functions can be intermixed freely. Suitable declarations allow free 


variables to be transmitted between the compiled functions and the 
interpreter Cset constants may also be picked up by compiled functions. 

Xt is possible to compile special forms and to compile functions that 
call special forms. No special provision Is needed for doing this. 


Using the Compiler 

In order that a function be compiled, it is first necessary that 
it be defined, that is it must have an EXPR or PEXPR on Its property 
list. This is usually done by a DEFINE or a DEFLXST. 

If there are any variable declarations, they must be declared before 
compiling. This is described under the heading "Free Variables." 

To compile any number of functions, on© simply punches:- 

COMPILE ((FN1 FN2... )) 

The order of compilation is of no significance. Xt is not necessary 
to compile inside functions first, or even to have them defined until 

they are to be used at run time. 

Xt is not necessary to compile all functions being used in a 
particular run, however running interpreted functions may slow down • 
the run very much. 




When the compiler is not to be used any more, 
converted into free storage by punching: 

EXCISE NJCL 


ifc can be removed 


Free Variables 

A variable is bound in a particular function when it occurs in a 
list of bound variables following the word LAMBDA or PRO0. Any 
variable that is not bound is' free,, 

Example: 

(LAMBDA (A) (PROS (B) 

S (SETQ B A) 

(COND ((HULL B) (RETURN C))) 

(SETQ C (CONS (CAR A) C)) 

(00 S) )) 

A and B are bound variables, C is a free variable. 

« 

When a variable is used free, it must have been bound by a higher 
level function. If a program is being run Interpretively, and a free 
variable is used without having been bound on a higher level, error 
diagnostic *A 8* will occur. 

If the program is being run complied, the diagnostic may not occur, 
and the variable may have value NIL. 

All free variables in compiled programs must be declared SPECIAL 
or COMMON! 1 -:--- 

jET k variable is used free in compiled functions only, and Is 
always bound in other compiled functions then it must be declared 

SPECIAL. Declaring special variables will not increase progra m size or 
decrease speed very much. 

Special variables are declared by punching: 

SPECIAL ( ( VAFJ VAR2. • -} ) 

f 

This declaration must be made before compiling any of the functions 
that bind or use the free variable. 

When a variable is to be used free in a compiled function and bound 
in an interpreted function or vlsa-versa it must be declared COMMON* 

When a variable is declared COMMON, its treatment by compiled functions 
is identical to ifc3 treatment by the interpreter. It may be passed 
between compiled functions and the interpreter. 

Function al Constants 

•" — — nr~ r~ i n n > ■—ijri u^^-^-ni - 
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Consider the following S-expression definition of a function 



(YDCT (LAMBDA (X Y) (MAPLXST X (FUNCTION 
(LAMBDA (j) (cons (OAR J) 7)) )))) 

ydotl(A B C D)jX}~[(( a,X) (B*X) (C„X) (DoX))3 


Following the word FUNCTION is a functional constant * ‘ If wo 
consider it as a separate function, it is evident that it contains a 
bound variable 53 J n , and a free variable "y H , This free variable must 
declared SPECIAL or COMMON, even though it is bound in YDOT** 

Functional Arguments 

MAPLIST can be defined in S-expressions as follows: 

(MAPLIST (LAMBDA (L FN) (COND 
((NULL L) NIL) 

(T (CONS (FNL) (MAPLIST (CDR L) FN))) ))) 

The variable FN is used to bind a functional argument* That is, 
the value of FN is a function definition» This type of variable must 
be declared COMMON* 

Compiler Design 

m m ummwM i * * * "* **++• *< i n ngi p r i n t * m 

Compilation proceeds in three steps* The output of each one is the 
input for the next* 

PASSONE performs several modifications on the input* Its output 

* 

is still in the form of S-expression definitions of functions* Among 
these are the following* 

1* All SPECIAL and COMMON variables are flagged for special 
attention* 

2* Function definitions are rewritten so as to use FEXPR and 


FSUBR functions in the most effective way* 

3* Recursive functions that would b© more effective if written with 
iterative loops are rewritten using the PROS features 

PHASE2 generates assembly language from the S-expression inout* 

The main problems it solves are: 


! 

1* Determining the order of computation for nested composition of 
functions* 

2* Locating arguments for calling other functions, and assigning 
storage to the result that is returned*. 

3* Determining an efficient sequence of conditional transfers to 
execute conditional expressions and Boolean predicates* 

LAP, the LISP Assembly Program, baa been described in another memo* 



V* 







CompilcT Machine Convention® 


LISP functions are closed subroutlnca. They are called by: 

TSX FN,. 4 

with the arguments located in the AC, the MQ, $ARG3, $ARG4 

i 

They return TRA 1,4 with the value in the AC. 




The compliment of IR1 is always the first free cell on the push 
down list. Every compiled functions calls a subroutine called «MOVE 
that moves the arguments of the function from AC,MQ etc. to locations 
1,1 2,1 etc. Then further space Is left on the push down list for 
temporary storage, and 1R1 is decremented to point to a higher location. 

/ Ordinary variables are cells on the push down list. They are 
not available to other functions. 

SPECIAL variables are set up as fixed storage locations. They 
can be referenced directly by any compiled function. When something 

is to be stored in a SPECIAL cell, the old value is saved on the pu 3 h 

* 

down list and later restored. 



COMMON variables are located on an A-list that Is passed between 
interpreter and compiled functions. 

LINK 

■i — \ ■ ..in 

Although it is normal to TSX to functions the first time that 

• / 

they are executed, there will be an STR in thi 3 location in the prograa. 
This trap is picked up by LINK If LINK finds that there is a subroutine to 
go to, it replaces the STR with a TSX. If there is no SUBR, then LINK 
connects with the interpreter, so that if there is an EXPR, it can be 
interpreted. 
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